home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0013_Read CTL-ALT-SHIFT #2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  851 b   |  29 lines
  1. Uses Dos;
  2. Var
  3.     regs :  Registers;
  4.     stat :  Byte;
  5.     inse, caps, numl, scrll, alt, ctrl, lshift, rshift : Boolean;
  6.     { declaration of all the bools hidden :) }
  7. begin
  8.      regs.ah:=2; intr($16,regs);
  9.      stat:=regs.al;
  10.  
  11.      inSE   := stat and 128 <> 0;   { Insert on    }
  12.      CAPS   := stat and  64 <> 0;   { CapsLock     }
  13.      NUML   := stat and  32 <> 0;   { NumLock      }
  14.      SCRLL  := stat and  16 <> 0;   { ScrolLock    }
  15.      ALT    := stat and   8 <> 0;   { ALT pressed  }
  16.      CTRL   := stat and   4 <> 0;   { CTRL pressed }
  17.      LSHifT := stat and   2 <> 0;   { left Shift " }
  18.      RSHifT := stat and   1 <> 0;   { right Shift" }
  19.  
  20.      Writeln(inSE);
  21.      Writeln(CAPS);
  22.      Writeln(NUML);
  23.      Writeln(SCRLL);
  24.      Writeln(ALT);
  25.      Writeln(CTRL);
  26.      Writeln(LSHifT);
  27.      Writeln(RSHifT);
  28. end.
  29.